﻿Public Class Counter

    Public Property CounterName As String
    Public Property CounterObject As String
    Public Property ParentCounterObject As String
    Public Property ParentCounterName As String
    Public Property ParentCounterFormula As String
    Public Property ThresholdRed As String
    Public Property ThresholdOrange As String
    Public Property ThresholdGreen As String
    Public Property CounterDescription As String

    Public Sub New(ByVal vCounterName As String _
                   , ByVal vCounterObject As String _
                   , ByVal vParentCounterObject As String _
                   , ByVal vParentCounterName As String _
                   , ByVal vParentCounterFormula As String _
                   , ByVal vThresholdRed As String _
                   , ByVal vThresholdOrange As String _
                   , ByVal vThresholdGreen As String _
                   , ByVal vCounterDescription As String)

        CounterName = vCounterName
        CounterObject = vCounterObject
        ParentCounterObject = vParentCounterObject
        ParentCounterName = vParentCounterName
        ParentCounterFormula = vParentCounterFormula
        ThresholdRed = vThresholdRed
        ThresholdOrange = vThresholdOrange
        ThresholdGreen = vThresholdGreen
        CounterDescription = vCounterDescription
    End Sub
End Class
